home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / c / AmiVoGL_MDEV.lha / src / newtokens.c < prev    next >
C/C++ Source or Header  |  1994-04-12  |  866b  |  46 lines
  1. #include <stdio.h>
  2. #include "vogl.h"
  3.  
  4. static TokList        *current;
  5.  
  6. /*
  7.  * newtokens
  8.  *
  9.  *    returns the space for num tokens
  10.  */
  11. Token * newtokens(int num)
  12. {
  13. TokList    *tl;
  14. Token    *addr;
  15. int    size;
  16.  
  17. if (vdevice.tokens == (TokList *)NULL || num >= MAXTOKS - current->count) {
  18.     if ((tl = (TokList *)malloc(sizeof(TokList))) == (TokList *)NULL)
  19.     verror("newtokens: malloc returns NULL");
  20.  
  21.     if (vdevice.tokens != (TokList *)NULL)
  22.     current->next = tl;
  23.     else 
  24.     vdevice.tokens = tl;
  25.  
  26.     tl->count = 0;
  27.     tl->next = (TokList *)NULL;
  28.     if (num > MAXTOKS)
  29.     size = num;
  30.     else
  31.     size = MAXTOKS;
  32.     if ((tl->toks = (Token *)malloc(size * sizeof(Token))) == (Token *)NULL)
  33.     verror("newtokens: malloc returns NULL");
  34.  
  35.     current = tl;
  36.     }
  37.  
  38. addr = ¤t->toks[current->count];
  39. current->count += num;
  40.  
  41. return(addr);
  42. }
  43.  
  44. /* ------------------------------------------------------------------------ */
  45.  
  46.